(menu-bar-update-buffers): Call copy-sequence so "Buffers" won't be pure.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 7db5f96e6d73b9393a07f47af01801a77218c7d1..e45d6926d7071fc98b82268ecb618b3582c50b1c 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -1557,7 +1557,8 @@ Buffers menu is regenerated."
 
         (setq buffers-menu (cons 'keymap (cons "Select Buffer" buffers-menu)))
         (define-key (current-global-map) [menu-bar buffer]
-          (cons "Buffers" buffers-menu)))))
+          ;; Call copy-sequence so the string is not pure.
+          (cons (copy-sequence "Buffers") buffers-menu)))))
 
 (add-hook 'menu-bar-update-hook 'menu-bar-update-buffers)